#!
my %fruit = ('apple' => 3, 'pear' => 5,'orange' => 2);

#access
print $fruit{apple}," apples\n";
#insert 
$fruit{'banana'} = "4";
#delete
delete $fruit{pear};
#check existence
print "banana exists\n" if(exists $fruit{banana});
#get size
my $size = keys %fruit;
print "$size elements in hash\n";
